home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / kboot20.d64 / proc.comal-802 < prev    next >
Text File  |  2009-01-23  |  2KB  |  101 lines
  1. 0010 // ┴┬-╙╧╞╘ V. ┴╬─┼╥╙ ┬┼╥╟═┴╬╬.
  2. 0020 //
  3. 0030 // ╘┼╠.: ─╦ 09-291277
  4. 0040 //
  5. 0050 //      MPS802 DUMP
  6. 0060 //
  7. 0070 // BY ┴LLAN ╚0╠├╚┼╬ OKT. 1984.
  8. 0080 //
  9. 0090 ─╔═ SCREEN$(1:1000) ╧╞ 8
  10. 0100 FORKLARING
  11. 0110 
  12. 0120 ╞╒╬├ BACKCOLOR 
  13. 0130   ╥┼╘╒╥╬ ╨┼┼╦($D021) ┬╔╘┴╬─ $0F
  14. 0140 ┼╬─╞╒╬├ BACKCOLOR
  15. 0150 
  16. 0160 ╨╥╧├ DUMPFULL 
  17. 0170   ╘╔═┼ 0
  18. 0180   WINDOW(0,319,0,199)
  19. 0190   VIEWPORT(0,319,0,199)
  20. 0200   DUMP(BACKCOLOR,SCREEN$())
  21. 0210   WINDOW(-160,159,-100,99)
  22. 0220   UDSKRIV
  23. 0230 ┼╬─╨╥╧├ DUMPFULL
  24. 0240 
  25. 0250 ╨╥╧├ DUMP(BC,╥┼╞ SCREEN$()) ├╠╧╙┼─
  26. 0260   ╔═╨╧╥╘ GETCOLOR,WINDOW
  27. 0270   //
  28. 0280   //  ─UMP-ROUTINE FOR ═╨╙-802
  29. 0290   //
  30. 0300   //  BC   :  BACKGROUND COLOR
  31. 0310   //
  32. 0320   //
  33. 0330   ─╔═ TEGN$ ╧╞ 8
  34. 0340   ╘╥┴╨ ┼╙├-
  35. 0350   ╘╥┴╨ 
  36. 0360     INX#:=1
  37. 0370     ╞╧╥ Y1#:=192 ╘╧ 0 ╙╘┼╨ -8 ─╧
  38. 0380       SCANLINE(Y1#)
  39. 0390     ┼╬─╞╧╥ Y1#
  40. 0400   ╚┴╬─╠┼╥ 
  41. 0410     ╔╞ ┼╥╥<>0 ╘╚┼╬ ╨╥╔╬╘ ┼╥╥╘┼╪╘$
  42. 0420   ┼╬─╘╥┴╨ 
  43. 0430   ╘╥┴╨ ┼╙├+
  44. 0440   
  45. 0450   ╨╥╧├ SCANLINE(Y#) 
  46. 0460     ╞╧╥ C#:=0 ╘╧ 319 ╙╘┼╨ 8 ─╧
  47. 0470       TEGN$:=""
  48. 0480       ╞╧╥ X#:=0 ╘╧ 7 ─╧
  49. 0490         V#:=0
  50. 0500         ╞╧╥ Y2#:=0 ╘╧ 7 ─╧
  51. 0510           ╔╞ GETCOLOR(C#+X#,Y#+Y2#)<>BC ╘╚┼╬
  52. 0520             V#:=V#+(2^Y2#)
  53. 0530           ┼╬─╔╞ 
  54. 0540         ┼╬─╞╧╥ Y2#
  55. 0550         TEGN$:=TEGN$+├╚╥$(V#)
  56. 0560       ┼╬─╞╧╥ X#
  57. 0570       SCREEN$(INX#):=TEGN$
  58. 0580       INX#:+1
  59. 0590     ┼╬─╞╧╥ C#
  60. 0600     
  61. 0610     ╔╞ ┼╙├ ╘╚┼╬ ╥┼╨╧╥╘
  62. 0620   ┼╬─╨╥╧├ SCANLINE
  63. 0630 ┼╬─╨╥╧├ DUMP
  64. 0640 //
  65. 0650 //
  66. 0660 // UDSKRIVNING
  67. 0670 //
  68. 0680 //
  69. 0690 ╨╥╧├ UDSKRIV 
  70. 0700   ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
  71. 0710   
  72. 0720   
  73. 0730   ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
  74. 0740   ╧╨┼╬ ╞╔╠┼ 6,"U4:/S6",╫╥╔╘┼
  75. 0750   ╨╥╔╬╘ ╞╔╠┼ 6: ├╚╥$(20),
  76. 0760   ├╠╧╙┼ ╞╔╠┼ 6
  77. 0770   ╧╨┼╬ ╞╔╠┼ 5,"U4:/S5",╫╥╔╘┼
  78. 0780   ╞╧╥ X:=1 ╘╧ 25 ─╧
  79. 0790     ╞╧╥ I:=1 ╘╧ 40 ─╧
  80. 0800       ╨╥╔╬╘ ╞╔╠┼ 5: SCREEN$((X-1)*40+I),
  81. 0810       ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
  82. 0820       ╨╥╔╬╘ ╘┴┬(I);""254"",""141"",
  83. 0830       ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
  84. 0840     ┼╬─╞╧╥ I
  85. 0850     ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
  86. 0860     ╨╥╔╬╘ ""13"",
  87. 0870   ┼╬─╞╧╥ X
  88. 0880   ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
  89. 0890 ┼╬─╨╥╧├ UDSKRIV
  90. 0900 //
  91. 0910 //      FORKLARING
  92. 0920 //
  93. 0930 ╨╥╧├ FORKLARING 
  94. 0940   ╨┴╟┼
  95. 0950   ╨╥╔╬╘ "─ETTE PROGRAM FLETTES SAMMEN MED"
  96. 0960   ╨╥╔╬╘ "GRAFIKPROGRAMMET."
  97. 0970   ╨╥╔╬╘ "╟RAFIKSK[RMEN UDSKRIVES VED KALD AF "
  98. 0980   ╨╥╔╬╘ "PROCEDUREN ─╒═╨╞╒╠╠."
  99. 0990 ┼╬─╨╥╧├ FORKLARING
  100. 1000 DUMPFULL
  101.